unit u_acessorestrito;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AdvEdit, ExtCtrls, Buttons, AdvGlowButton;

type
  TFRM_AcessoRestrito = class(TForm)
    imgFundoTop: TImage;
    imgLogo: TImage;
    lblTitulo: TLabel;
    edtSenha: TAdvEdit;
    pnlRodape: TPanel;
    btnLiberar: TAdvGlowButton;
    btnCancelar: TAdvGlowButton;
    procedure edtSenhaKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_AcessoRestrito: TFRM_AcessoRestrito;

implementation

{$R *.dfm}

procedure TFRM_AcessoRestrito.edtSenhaKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then btnLiberar.Click;
end;

end.
